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DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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STATEMENT ~ ARITHMETIC ASSIGNMENT AND STRING 8 eSuar a P=1984 9: 29:2 AX/VMS Macro v04-00 Page 1 | 
v04 P=1984 DCL.SRCISTATEMENT MAR; 1 (1) 


att 4 TO eRENT - ARITHMETIC ASSIGNMENT AND STRING EQUATE PROCESSING 


IT 

- IDENT 

POI TITI TIT PiPiPiiiririitiri titi ti iittititiiititititititi titi titty 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


4 ; 
5; 
ois ; 
7* * 
* * 
8 se 
10 3;* * 
0 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt bt * 
1 3* ONLY IN accor DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15. ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
14 ;* COPIES OHEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
00 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 1g ” TRANSFERRED. * 
a ‘ ® 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 9 :* CORPORATION. a 
PY ® 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
464 ? :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
0000 5 js “ 
8008 $ 3 MeRRRRALALALALELALLLALEE EELS LER ELE SESE EES ESE EEC ELEC EEE EEE EEE LOCSOCOECOOCOCCOOCL A... 
8008 3 : ARITHMETIC ASSIGNMENT AND STRING EQUATE STATEMENT PROCESSING 
0000 0 : D. N. CUTLER 16-MAY-77 
0000 13 
6008 ¢ 3 MODIFIED BY: 
000 4: v03-004 PCG0007 Peter George 27-Jul-1983 
4 5: Add multi-national character support. 
0000 5 ; v03-003 PCG0006 Peter George 27-May-1983 
44 3 3 Change error processing. 
0000 «40: v03-002 PCG0005 Peter George 17-Jan-1983 
9000 41; Fix SETBIT typo. 
0000 4g : V03-001 PCG0004 er George 09-Jun-1982 
464 rf Re Check Length of ++ substitution. 
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STATEMENT - ARITHMETIC ASSIGNMENT AND STRING Ae 16-SEP-1984 00:2 +58 AX/VMS Macro v04-00 P 
Mya yi 4- 198 98 1 _ 3) | 


“SEP=1984 23:4 DCL.SRCISTATEMENT MAR; 1 
47 ; | 
3 $8 : MACRO LIBRARY CALLS 
0 Ps 
$5 1 PRCDEF DEFINE PROCESS WORK AREA 
000 ¢ WRKDEF s DEFINE COMMAND . WORK ang 
000 2 SYMDEF sDEFINE T F SY 
pe 2% SCLIMSGDEF sDEF INE ERROR/STATUS VALUES 
00000000 56 -PSECT DCLSZCODE,BYTE,RD,NOWRT 


SESS a 


-. 
SIGNMENT AND STRING EQUAT 16-SEP~-1 


= ARITHMETIC AS 4 7:20:59 VAX/VMS Macro V04-00 Page 
SUBSTRING ASSIGNMENT STATEMENT paises 90:29:28 DCL. SRCJSTATEMENT.MAR; 1 . 3) 
0 58 i .SBTTL SUBSTRING ASSIGNMENT STATEMENT 
2 69 + DCLSSUBASSIGN = SUBSTRING ASSIGNMENT 
6¢ ; THIS ROUTINE 1S CALLED WHEN A SYMBOL DEFINITION IS TERMINATED WITH A LEFT SQUARE 
64 : 
090 rH : INPUTS: 
009 85 : R1 = LENGTH OF SYMBOL NAME. 
00 68 ; R2 = ADDRESS OF SYMBOL NAME. 
9900 $9 ; R10 = BASE ADDRESS OF COMMAND WORK AREA. 
9900 £0 ; R11 = BASE ADDRESS OF PROCESS WORK AREA. 
0900 rg : OUTPUTS: 
Ps | 
0000 «74: THE POSITION AND SIZE PARAMETERS ARE PARSED AND THE ASSIGNMENT IS DISPATCHED 
9000 i ; TO THE PROPER ASSIGNMENT STATEMENT PROCESSOR. 
0000 6 
0000 $78 DCLSSUBASSIGN:: ;SUBSTRING ASSIGNMENT 
7E 51 «7D 9009 79 MOVQ ~—s R1,=( SP) :SAVE SYMBOL NAME PARAMETERS 
59 F486 CA 00 000 80 MOVL § WRK_L_EXPANDPTR(R10),R9 :SAVE PTR TO FIELD SPECIFICATION 
FFFS* 30 0008 81 BSBW DCLSMOVCHAR sMOVE RIGHT BRACKET 
FFF2" 30 0008 4 BSBW OCLSEXPRESS SEVALUATE POSITION EXPRESSION 
4250 €9 O00F 8 BLBC = RO, 90 ‘BRANCH IF ERRO 
5851 0 0011 84 MOVL R1.R TSAVE POSITION PARAMETER 
FFE" 30 0014 85 BSBW $DCLSMOVCHAR ‘MOVE NEXT CHARACTER 
2c 50 91 0017 86 CMPBseéRO, #*A',' : ? 
30 12 001A —s«B? BNEQ 208 SERROR IF NOT 
FFE1® 30 OO1C 88 BSBW =-:»OC LS MARK [MARK CURRENT PARSE POSITION 
FFDE' 30 OO1F 89 BS8W DCLSEXPRESS TEVALUATE SIZE EXPRESSION 
2 50 £—9 0022 90 BLBC ~=—_- RO, 908 [BRANCH IF ERROR 
57. 51 bo 0025 39 MOVL  R1.R7 [SAVE SIZE PARAMETER 
FFDS* 30 0028 32 BSBW  DCLSMOVCHAR [MOVE TERMINATOR TO COMMAND BUFFER 
5p 8 6050-—s«é#91s«02Btié<S93D CMPB saRO, #*A')' SRIGHT BRACKET? | 
1B 12 OO2F 9% BNEQ 208 TERROR IF NOT 
FFCC' 20 0031 95 BSBW =-: CLS MARK [MARK CURRENT PARSE POSITION 
FFC9* 30 0634 BSBW DCLSSETNBLK [PEEK AT NEXT CHARACTER IN COMMAND BUFFER 
50 3 91 99 7 9 CMPB ss #*A/=/,RO TARITHMETIC ASSIGNMENT? 
29 13 003A = «98 BEQL © 60$ [IF EQL YES 
50 3a 91 O03c 99 CMPB ss #*A/:/,RO ‘STRING EQUATE (:=)? 
0B O3F 100 BNEQ 208 :IF NEQ NO 
FFBC* ; 041 101 BSBW OCLSMOVCHAR [MOVE NEXT CHARACTER TO COMMAND BUFFER 
FBS" May é BSBW DCLSSETCHAR [PEEK AT NEXT CHARACTER IN COMMAND BUFFER 
50 3) 91 0047 10 CMPB Os #*A/=/,RO [STRING EQUATE (:=)? 
0B 13 004A 104 FOL =s_—« 0S ‘BRANCH IF OK 
O4¢ 105 20$: STATUS SYMDEL [INVALID SUBSTRING DELIMITER 
SE 08 co 6 53.1 6 90$: DDL «ss #8, SP [POP SAVED SYMBOL NAME DESCF.IPTOR 
> 8089 «108 ae 
0037 109 t STRING ASSIGNMENT -- CPOS,CHARS] := STRING 
51 8 7D 097 111 50$: mova  (SP)+,R1 ZRESTORE SYMBOL NAME PARAMETERS 
F4BA cA 00 SA 118 MOVL  R2,WRK_L_MARKPTR(R10) RESET ERROR DISPLAY POINTER 
6 01 p OSF 11 MOVL = #1, SSET SUBSTRING INDICATOR 
010F 1 0062 114 SRW EQUATE ; 
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ASSIGNMENT AND STRING EQUAT 16-SEP-1984 99:20:59 AX/VMS Macro v04-00 
SIGNMENT STATEMENT G-SEP-1984 23:43:40 LDCL.SRCISTATEMENT., MAR; 1 
15 ; 
118 3 3 NUMERIC ASSIGNMENT == CPOS,BITS] = EXPRESSION 
118 bos: mova (sP)° ;RESTORE SYMBOL NAME PARAMETERS 
11 MOVL R vee ul _MARKPTR(R10) RESET ERROR DISPLAY POINTER 
120 MOVL #1.R6~ 'SET SUBSTRING INDICATOR 
121 BRB EVALUATE : 
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—E 3 
SSIGNMENT AND STRING EQUAT 16- $7 360- 1386 90:20:33 
4 25:45:40 


4=SEP=19 

= -SBTTL EVALUATE ASSIGNMENT STATEMENT 
; DCLSEVALUATE = EVALUATE ASSIGNMENT STATEMENT 
; THIS ROUTINE IS CALLED TO PROCESS AN ASSIGNMENT STATEMENT. 
INPUTS: 


AX/VMS Macro V04 
DCL. SRCIJSTATEMENT 


Ri = LENGTH OF SYMBOL NAME. 

Re = ADDRESS OF SYMBOL NAME. 

RO = ADDRESS OF FIELD SPECIFICATION. 

R1 BASE ADDRESS OF COMMAND WORK AREA. 
R1 BASE ADDRESS OF PROCESS WORK AREA. 


OUTPUTS: 


PO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
RO = DCL$_NORMAL - NORMAL COMPLETION. 


Be Se Ge Se Ge Ge Se Se Se Se Be Se Se Be Se Se Se Se Se Se Se Se Se Se Be 
zz 
oO 


500 


«MAR; 1 


RO = DCL$_COMPLX = EXPRESSION TOO COMPLEX. 
= DCLS_EXPSYN = EXPRESSION SYNTAX ERROR. 
RO = DCLS_IVCHAR = INVALID NUMERIC CHARACTER. 
RO = DCLS_IVOPER = INVALID tells gg fa 
RO = DCL$_IVSYMB = INVALID SYMBOL CHARACTER. 
RO = DCLS_SYMDEL = INVALID SYMBOL DELIMITER. 
RO = hy My 4 - SYMBOL TABLE oe * FLOW. 
RO = DCLS$_UNDSYM = UNDEFINED SYMB 
RO = DCLS_INVRANGE = FIELD SPECIFICATION OUT OF BOUNDS 


RO LOW BIT CLEAR INDICATES EXPRESSION ANALYSIS OR ASSIGNMENT FAILURE. 


DCLSEVALUATE: : ZEVALUATE ASSIGNMENT STATEMENT 
CLR R6 :CLEAR BIT FIELD SUBSTRING INDICATOR 
ON ENTRY, IF R6 = 1, 
R7 = SUBSTRING FIELD WIDTH 
; R& = SUBSTRING STARTING BIT NUMBER 
EVALUATE: VALUATE EXPRESSION 
65 SETBIT fick V_IND,.PRC_W _FLAGS(RIAS -DISABLE INDIRECT FILE RECOGNITION 
66 CMPL :FIELD WIDTH GREATER THAN LONGWORD? 
6 BGEQU [IF GEQU NO 
68 MOVL ; $ RY SREDUCE FIELD WIDTH TO A LONGWORD 
69 10$:  BSBW CHECKS [CHECK SYMBOL AND SAVE PARAMETERS 
0 PUSHR pacha. R RB,R9> [SAVE BIT FIELD SUBSTRING PARAMETERS 
71 BSBW © OCLSEXPRES “EVALUATE ARITHMETIC EXPRES 
ce POPR BAWCRG,R RB. 9> SRESTORE BIT FIELD SUBSTRING PARAMETERS 
7 POPR #*M<R3_R4. i RETRIEVE SYMBOL NAME PARAMETERS 
7% BLBS 128 [BRANCH IF OK 
03 RSB TEXIT WITH ERROR 
7 : IF NO SUBSTRING SPECIFIED, STORE VALUE IN SYMBOL 
8 12$:  BLBS  R6,15$ :IF LBC NO BIT FIELD SUBSTRING SPECIFIED 


RES ES Se pega e 
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96-500 EVALUATE ASSIGNMENT STATEMENT 4=SEP=1984 23:43: DCL. SRCJSTATEMENT.MAR; 1 (4) 
50 D 97 1 : MOVL § #SYM_K_STRING,RO y ASSUME STRING VALUE 
D 9A TSTL OR [STRING VALUE? 
1 9¢ 1 ; BNEQ 13% ‘BRANCH if ‘7 
50 9 1 MOVL #§ #SYM_K_BINARY,R :SET TO BINARY VALUE 
FF c Ai 184 13$ BSBW DELSRLCOLSTRAGR ‘ALLOCATE AND INSERT SYMBOL IN TABLE 
00A 1 OAs 5 BRW ‘CLEANUP INPUT STREAM 
ar 2 FIND PREVIOUS VALUE OF SYMBOL 
58 05 OA7 189 iss TSTL = R yINSERTING STRING INTO BIT FIELD? 
03 (1 OA9 190 BEQL 16$ :OK IF NOT 
00843 OAB 191 BRW IVCHAR TERROR IF SO 
A ae A 19¢ 16$: PUSHR #*M<R1,R3,R4,R5> SSAVE EXPRESSION AND SYMBOL NAME gPARAME TERS 
51 3 7D 0080 19 MOVQ = R3,R :SET SYMBOL NAME PARAMETERS FOR S 
50 38 AB 9E 008% 194 MOVAB PRC_Q_LOCAL(R11),RO [GET ADDRESS OF LOCAL SYMBOL TABL $ 
50 55 01 9087 195 CMPL = RS_RO [WHICH TABLES SHOULD WE SEARCH? 
05 12 OOBA 196 BNEQ "3 SIF NEQ, THEN GLOBAL 
FF41" 30 O0BC 19 BSBW DCLSSEARCH_LOCAL + SEARCH LOCAL SYMBOL TABLES 
95 11 O0BF 198 BRB 1 3SKIP NEXT SEARCH 
FF3C° 30 00C1 199 17$: BSBW  $DCLSSEARCH_GLOBAL [SEARCH GLOBAL SYMBOL TABLE 
02 50 £8 00C4 200 188: BLBS  RO,20$ :BRANCH IF SUCCESSFUL SEARCH 
51 4 b0¢7 1 CLRL ss RV SUNSUCESSFUL, ASSUME NULL STRING 
00C9 0 + IF PREVIOUS VALUE WAS AN INTEGER, THEN PERFORM BOUNDS CHECKING AND THEN 
434 oe : 3; INSERT THE NEW VALUE INTO THE LONGWORD. 
52. pS 0069 506 80S: ~—sTSTL R2 SBINARY VALUE? 
29 12 #O00CB 207 BNEQG 25% ‘BRANCH IF NOT 
58 20 od1 OOCD 208 CMPL #32,R8 :STARVING BIT OUTSIDE LONGWORD? 
14 1B 00D0 209 BLEQU 238 s1F LEQU YES 
50 58 57 C1 0002 210 ADDL3 R7,_R8,RO ‘FIND ENDING BIT 
50 20 D1 0006 = 211 CMPL 6s #30, RO :1$ IT OUTSIDE THE LONGWORD? 
0B iF 00D9 12 BLSSU 238 :IF LSSU YES 
51 57 58 8E€ FO OODB 21 INSV (SP)+,R8,R7,R1 S INSERT BIT FIELD INTO LONGWORD 
50 (0 po O0E9 14 MOVL #SVM_k k_BINARY,RO [SET TYPE OF SYMB OL 
006 1 00€ 15 BRW 55$ ~ ‘STORE THE SYMBOL 
F4BA CA 59 00 O0E6 216 23S: MOVL =, WRK L_MARKPTR(R10) RESET PTR wee ERROR SEGMENT 
SE 10 CO OOEB 217 ADDL #4*4 SRESTORE THE STA 
50 00038228 8F b0 OOEE 18 MOVL rcLI$ INVRANGE ,RO TSET INVALID RANGE 
0 OOF 3 19 RSB 
dor 1; INITIALIZE THE EXPANSION BUFFER (IT WILL HOLD THE RESULT) AND 
OF 6 ¢ + CALCULATE THE EXTENT OF THE STRING INSERTION 
58 00001808 8F bt Gore é 55s: cMPL #<WRK_C_CMDBUFS17-255>*8, Re vest l i STARTING BIT OUTSIDE BUFFER? 
56 58 57 1 Gore 6 ADDL3 R7,R8B.R6 : CALCULATE ENDING BIT NUMBER 
56 «60070 «CO (0103 7 ADDL #7 6 ‘ROUND UP TO NEX 
36 08 C6 01 $ 8 DIVL R6 [CALCULATE ENDING BYTE NUMBER 
56 00000301 8F 01 01 CMPL rake _C_CMDBUFSIZ-255,R6 WILL STRING FIT IN BUFFER? 
1F 0110 0 BLSSU 238 ~ [NO, THEN SIGNAL ERROR 
F486 CA £591 CA 3 18 i MOVAB WRK _G BUFFER+255(R10) ,WRK_L EXPANDPTR(R1O) :RELOAD ADDRESS OF EXPANS 
FEES’ 30 011 £ BSBW OCLSMARK sMARK CURRENT PARSE POSITION 
55 D0 We ; MOVL RIERS ‘SAVE LENGTH OF SYMBOL STRING 
4 5 i : MOVE PREVIOUS STRING VALUE INTO THE EXPANSION BUFFER 
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v04 EVALUATE ASSIGNMENT STATEMENT 4=SEP=1984 23:43: DCL.SRCJSTATEMENT MAR; 1 (4) 
5 D7? O11F 7 27$: ~—sbE CL 85 ZANY MORE CHARACTERS TO COPY? 
19 01 } : BLSS 3 ‘ F 
50 A 01 MOVZBL (R2)+,RO ‘GET N NEXT SYMBOL CHARACTER 
FED?" 30 01 é 40 BSBW BCL SPUTCHAR [PUT CHARACTER IN COMMAND BUFFER 
am. (UT 3 4} BRB : 
8 68 | EXTEND THE STRING AS NEEDED 
55 56 «COS 158 545 $08: — SUBL3 R6,RS :CALCULATE NUMBER OF EXTENSION CHARACTERS 
15 O12F 46 BLEG Bie :IF LEQ NO EXTENSION REQUIRED 
51 56 DO 0131 24 MOVL a: R1 ‘SET LENGTH OF RESULTANT STRING 
3 bs 134 48 40$:  CLRL RO [CLEAR EXTENSION BYTE 
FEC?" 30 0136 24 BSBW DCLSPUTCHAR ‘PUT CHARACTER IN COMMAND BUFFER 
FBSS) FS 01 9 50 SOBGTR R5,40$ TANY MORE EXTENSION CHARACTERS? 
1 C 3 : INSERT THE VALUE INTO THE STRING 
52 F591 CA i 013¢ 254 50s: mova wR 5° G_BUF FER®255(R10) »R2 3GET ADDRESS OF NEW SYMBOL VALUE 
62 57 58 8E FO 0141 255 INSV : INSERT BIT FIELD SUBSTRING 
50 00 00 0146 36 MOVL She NETRING. RO [SET TYPE OF SyABOLS” 
O49 38 : STORE THE SYMBOL AWAY 
38 BA 0149 560 §5$:  POPR. «—s #*M<R3.RG.RS> :RETRIEVE SYMBOL PARAMETERS 
FEB2' 30 0148 6) BSBW DCLSALLOCSYM SALLOCATE AND INSERT SYMBOL IN TABLE 
Oise e8 | ENSURE THAT THERE ARE NO MCRE CHARACTERS IN THE INPUT STREAM 
014 65 70$:  SETBIT WRK_V_ COMMAND, WRK _W_FLAGS(R10) ;SET COMMAND EXECUTION IN PROGRESS 
0c 50 £9 0159 66 BLBC 71F LBC’ SYMBOL ALLOCATION ERROR 
FEA8' 30 015 67 BSBW DCLSSETCHAR ‘ EER AT NEXT CHARACTER IN INPUT BUFFER 
10 12 0198 68 BNEQ  SYMDEL [IF NEQ INVALID SYMBOL DELIMITER 
15A 69 STATUS NORMAL SET NORMAL COMPLET 10N 
05 O16! 20 90$:  RSB : 
pies es IVCHAR: STATUS IVCHAR s INVALID NUMERIC CHARACTER 
0 Sioa 57k me 
016A 275 SYMDEL: STATUS SYMDEL :SET INVALID SYMBOL DELIMITER 
0171 276 RSB : 
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v04-000 PROC ATE STATEMENT o28Ep= 1984 3% 740 LOC SRCISTATEMENT MAR: 1 


‘ -SBTTL PROCESS STRING EQUATE STATEMENT 
DCLSEQUATE = PROCESS STRING EQUATE STATEMENT 
THIS ROUTINE IS CALLED TO PROCESS A STRING EQUATE STATEMENT. 


COB EB EEE ERNINAINININININININININININININININNINININININININIPINININ = wn 


me 
“4 
Psi 
—— 

“ 
mon 
gee 
ca 


CDOOSOCOOOOOOCSCOCOOCOCOCOOCOOCYOOOOCOCCO COSCO SCOOOCOOOCOOOOOOOOOOOOOOOoOOoOO “, 


3; INPUTS: 
: RO = TERMINATOR CHARACTER. 
R1 = LENGTH OF SYMBOL P 
Re = ADDRESS OF SYMBOL NAME. 
R9_ = ADDRESS OF FIELD SPECIFICATION. 
R10 = BASE ADDRESS OF COMMAND WORK AREA. 
R11 = BASE ADDRESS OF PROCESS WORX AREA. 


RO LOW BIT CLEAR INDICATES SYMBOL ALLOCATION FAILURE. 


RO = DCLS_SYMDEL = INVALID SYMBOL DELIMITER. 
RO = DCLS$_SYMOVF = SYMBOL TABLE OVERFLOW. 
RO = DCLS_INVRANGE = FIELD SPECIFICATION OUT OF BOUNDS 


RO LOW BIT SET INDICATES SUCCESSFUL ALLOCATION. 
RO = DCLS$_NORMAL - NORMAL COMPLETION. 


: OUTPUTS: 


WAA ANA. A AI AAAI PPPONONOPoPoNnanononononononopnorororonry 
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SQ NN 
DWOONA MEAN = OOO NAUE WN -*§ OS OD NA UE WN OOO NAUE WO O00 


me 


DCLSEQUATE:: ZPROCESS STRING EQUATE STATEMENT 
564 CLRL = R6 [CLEAR SUBSTRING INDICATOR 
: ON ENTRY, IF R6 = 1, 
; R7 = SUBSTRING FIELD WIDTH 
: R8& = SUBSTRING STARTING CHARACTER NUMBER 
EQuaTe: “EQUATE SYMBOL 
SETBIT PRC_V_IND.PRC_W_FLAGS(R11) ;DISABLE INDIRECT FILE RECOGNITION 
00F4 30 BSBW CHECKSYM sCHECK SYMBOL AND SAVE PARAMETERS 
FE82' 30 0178 BSBW DCL$SETNBLK [SET TO FIRST NON-BLANK CHARACTER 
FE7F' 30 OI7E BSBW DCLSMARK [MARK CURRENT POSITION IN BUFFER 
FE7C' 30 0181 0 20$:  BSBW CLSMOVCHAR [COPY NEXT CHARACTER INTO THE BUFFER 
Fe \ 84 1 BNEQ 0$ [UNTIL END OF LIN 
FEZ?" 6 : BSBW §DCLSMARKEDTOKEN [GET DESCRIPTOR OF MARKED STRING 
51D 9 DECL = RI SSUBTRACT OUT E 
03 13 4 BEQL 408 TIF EQL NULL STRING VALUE 
FE70" 30 D 5 W sd DCLSCOMPRESS [COMPRESS QUOTED STRING 
00000000" EF 9F 0190 6 40$ PUSHAB DCLS$ALLOCSYMABR [GUESS AT ALLOWING ABBREVIATED SYMBOL 
03 56 &8 36 L RS 41 [IF LBS, SUBSTRING SPECIFIED 
0080 31 99 8 BRW 126$ ‘BRANCH IF NOT SUBSTRING ASSIGNMENT 
3¢ 9 : CHECK BOUNDS OF INSERTION. 
58 00000301 8F 01 019 g 418: CMPL. «ss #WRK_C_CMDBUFSI2-255,R8 ;STARTING CHAR OUTSIDE BUFFER? 
1B O1A BLEQU 42% TIF LEQU YES 
50 «(58 C1 OIA 4 ADDL3 R7, RB, RO [CALCULATE POSITION BEYOND SUBSTRING 


STATEMENT - ARITHMETIC ASSIGNMENT AND string £8 EQUAT 16-SEP-19 4 00:20:59 VAX/VMS Macro v04-00 Page 
900-808 process STRING PQUATE STATEMENT 4-SEP- 71982 90:29:23 : DCL. SRCISTATEMENT MAR; 1 . (dy 
50 00000301 8F pI 1A9 CMPL K_C_CMDBUFS1IZ-255,R0 ;ENDING CHAR OUTSIDE BUFFER? 
1B BGEGU 4 $"- :1F GEQU 
F4BA dO 6018 42$:  MOVL R ,WRK LMARKPTR(R10) RESET PTh 10. ERROR SEGMENT 
: 0 co 618 ADDL SRESTORE THE $ 
50 00038228 8F b 1BA MOVL acLis. INVRANGE ,RO :SET INVALID SANGE 
1c] RSB 
iC ; : FIND PREVIOUS VALUE OF SYMBOL 
7E 51 7D OIC iss: mova —R1 = (SP) ySAVE EQUIVALENCE STRING PARAME TERS | 
51 9¢ AE 7D O1C MOV 12(SP),R1 SRETRIEVE SYMBOL NAME PARAMETERS | 
20 8 AB 9E 01C9 MOVAB PRC_Q LOCAL (R11) .RO [GET ADDRESS OF | OCAL SYMBOL TABLES 
0 14 AE Di 01D CMPL 20(SPY,R [WHICH TABLES SHOULD WE SEARCH? 
9 12 01D1 BNEQG 47$ SIF NEQ, THEN GLOBAL | 
FE2A’ 30 0103 BSBW DELSSEARCH_ LOCAL :SEARCH LOCAL SYMBOL TABLES | 
3 11 106 BRB 48$ [SKIP NEXT SEARCH 
FE25° 39 1D 47$:  BSBW  DCLSSEARCH_GLOBAL [SEARCH GLOBAL SYMBOL TABLE | 
0250 £8 01DB 48$:  BLBS  RO,49$ SBRANCH IF SUCCESSFUL SEARCH 
514 1DE CLRL eR SUNSUCCESSFUL, ASSUME NULL STRING 
O10 : IF PREVIOUS VALUE WAS AN INTEGER, CONVERT IT TO A STRING | 
F486 CA F591 CA 3 td 49$: MOVAB  WRK_G_BUFFER+255(R10) ,WRK_L_EXPANDPTR(R10) : RELOAD ADDRESS OF COMMAN | 
FE16" 30 O1E7 BSBW DCLSMARK sMARK CURRENT PARSE POSITION 
56 D4 O1EA CLRL 3s R6 :CLEAR STRING POSITION COUNT | 
52S COTEC TSTL Re INARY VALUE? 
06 12 O1€ BNEQ $ ‘BRANCH if NOT 
50 51 DO OTF MOVL  R1,RO ‘BINARY VALUE TO BE CONVERTED TO ASCII 
FEOQA’ 30 giFS BSBW DCLSCBTA_DEC [PUT RESULT IN COMMAND BUFFER 
O1F6 : MOVE OLD STRING INTO BUFFER, UNTIL SUBSTRING POSITION IS REACHED | 
58 56 «CO bike Sos:  CMPL «sO RB ;SUBSTRING POSITION REACHED? | 
13° 13)«01F9 8 ea. ~«=—s«w 70 TIF EQL YES 
50 20 9A ire MOVZBL #*A* ',RO SASSUME NO INPUT CHARACTERS LEFT 
1 D5 O1FE TSTL = R11 ANY MORE CHARACTERS IN INPUT STRING 
05 13 0200 BEQL 608 TIF NO 
51 D7? 0202 DECL = R1 ‘REDUCE NUMBER OF CHARACTERS REMAINING 
50 82 9a 0204 MOVZBL (R2)+,RO :GET NEXT CHARACTER FROM INPUT STRING | 
FDF6" 30 0207 60$:  BSBW DCLSPUTCHAR [PUT CHARACTER IN COMMAND BUSTER 
56 6 9 OA INCL = R6 SINCREMENT STRING POSITION 
e811 ne0c BRB 50$ : 
OE ; SUBSTRING POSITION HAS BEEN FOUND, INSERT THE SUBSTRING 
58 57 co OF 70$: ADDL :CALCULATE POSITION BEYOND SUBSTRING 
5 3 D 0211 mova CS)e. R3 SRETRIEVE SUBSTRING PARAMETERS | 
52 CO 0214 ADDL RZ, SCALCULATE ADDRESS OF NEXT CHARACTE 
51 57 ce 17 SUBL sR? R SREDUCE NUMBER OF CHARACTERS REMAINING 
m4 1A BGEG ©: 808 [IF GEQ MORE CHARACTERS IN INPUT STRI 
1 D4 O21C 5 CLRL sR [CLEAR NUMBER OF CHARACTERS REMAINING | 
58 $ D1 O21E 80$:  (CMPL R6,R8 [END OF SUBST | 
13°13 1 BEQL =—«-:100$ :IF EQL YES 
50 20 9A 3 MOVZBL #*A/ /,RO SASSUME NO MORE CHARACTERS IN SUBSTRING 
3D 6 TSTL sR TANY MORE CHARACTERS IN SUBSTRING? 
3 1 BEQL 90s [IF EQL NO 
D A DECL R SREDUCE NUMBER OF CHARACTERS IN SUBSTRING 
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STATEMENT = ARITHMETIC ASSIGNMENT AND STRING EQUAT 'o-$e p= 1384 90: +20: AX/VMS Macro v04-00 Page 10 
v04- PROCESS STRING EQUATE STATEMENT 4=SEP=1984 23:4 DCL. SRCJSTATEMENT.MAR; 1 (5) 
50 84 OA C 93 MOVZBL (R4)+,R0 sGET NEXT CHARACTER FROM SUBSTRING 
Fg ' 39 F 393.908:  BSBW DCLSPUTCHAR [PUT CHARACTER IN COMMAND BUFFER 
06 é 94 INCL S INCREMENT STRING POSITION 
eB 1 4 99 BRB § $ ; 
oF | : APPEND ANY OLD VALUE CHARACTERS THAT ARE LEFT TO THE END OF THE STRING 
51 0? 339 io0s: PECL zANY MORE CHARACTERS IN INPUT STRING? | 
50 83 A A 401 MOVZBL (R2)+,RO [GET NEXT CHARACTER FROM INPUT STRING 
FDCO" 30 50 4 ; BSB DCL SPUTCHAR ;PUT CHARACTER IN COMMAND BUFFER | 
FDBB' 30 ‘3 404 110$: BSBW DCLS$MARKEDTOKEN GET DESCRIPTOR OF RESULTANT STRING | 
6E O0000000°EF  9€ 43 405 MOVAB DCLS$ALLOCSYM, (SP) ‘DON'T ALLOW ANY ABBREVIATION 
4¢ 497 : STORE FINAL VALUE INTO SYMBOL | 
0 4C 109 | R1 = DESCRIPTOR OF SYMBOL VALUE 
4C 410 : (SP) = ROUTINE TO INSERT ENTRY INTO SYMBOL TABLE 
4C 411 : 4(SP) = DESCRIPTOR OF SYMBOL NAM 
ac aig : 12¢SP) = ADDRESS OF SYMBOL TABLE LISTHEAD 
56 BEDO 024C 414 1208: POPL R6 ;RETRIEVE SUBROUTINE ADDRESS 
BA 6F 415 POPR #NcRS R4,R5> TRETRIEVE SYMBOL PARAMETERS | 
FF BF 51 1 51 416 CMPB #255 [STRING TO LONG 
046 %B 0355 41 BLEQU IF LEQU NO | 
51 FF 8F 9A 0257 418 MOVZBL #255,R1 S TRUNCATE TO MAXIMUM LENGTH | 
00 00 0 58 4419: 130$: = MOVL #sy K_STRING,RO [SET TYPE OF SYMBOL 
66 16 O25E 420 JSB ZALLOCATE hn INSERT ENTRY IN SYMBOL TABLE 
FO AA 02 AB 0260 421 BISW gunn M_COMMAND ,WRK_W_FLAGS(R10) T COMMAND EXECUTION IN PROGRESS 
07 50 £9 0264 4 : BLBC R0,1208 s1F LBC inh | 
0267 4 STATUS NORMAL SET NORAAL COMPLETION STATUS 
05 026€ 424 1408: RSB : 
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OUTINES 64-SEP-1984 25:45:40 [CDCL.SRCISTATEMENT.MAR; 1 

é & -SBTTL LOCAL SUBROUTINES 

? 8 3; CHECKSYM = CHECK SYMBOL AND SAVE PARAMETERS 

4 . 

4 ° CHECKSYM: CHECK SYMBOL 

4 ; POPR #*M<R4> REMOVE RETURN ADDRESS FROM STACK 

4 BSBW pclae HKALPHA VERIFY IT IS VALID 

434 BLBC 3BR IF INVALID FIRST CHARACTER 

435 CMPL R1,4# $, :SYMBOL NAME TO LARGE 

4 $ BGTRU 40 s1F GTRU YES 

4 MOVAB PRC_Q_LOCAL(R11),R3 ASSUME LOCAL SYMBOL TABL 4 

438 SBW DCLSMOVCHAR sMOVE CHARACTER TO COMMAND BUFFER 

439 BSBW Bx 355 Euan PEEK AT NEXT CHARACTER IN INPUT BUFFER 

440 CMPB #*A/=/ SANOTHER EQUAL SIGN? 

441 BNEQ 71F NEQ NO 

$69 BSBW DCLSMOVCHA iMOVE CHARACTER TO COMMAND BUFFER 

44 MOVAB PRC_Q TOLGBAL (RIT, »R3 SET FOR GLOBAL SYMBOL TABLE 

444 20S: PUSHR #*MZRT iSAY E SYMBOL | i. an TER 

445 DISABLE DISABLE CONT Y/C AST'S 

446 CLRQ (SP)+ ; REMOVE RETURN  NFORMAT ION FROM STACK 

ret JMP (R4) : 

449 40S: STATUS SYMLNG SET SYMBOL TOO LONG STATUS 

450 50S: RSB 3 


a 
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STATEMENT = ARITHMETIC ASSIGNMENT AND STRING EQUAT 1o-SEP-1984 00:2 :59 VAX/VMS Macro v04-00 
v04= CHECK A CHARACTER FOR VALID ALPHA 4=SEP=1984 23:43:40 CDCL.SRCJSTATEMENT.MAR; 1 
AA £38 .SBTTL CHECK A CHARACTER FOR VALID ALPHA 
AA 4 4 : DCLSCHKALPHA = CHECK A CHARACTER FOR VALID ALPHA 
AA 636 : THIS ROUTINE CHECKS THAT THE CHARACTER POINTED TO BY R2 IS VALID 
AA 457 : FIRST CHARACTER FOR A SYMBOL. 
AA $28 3 
AA 459 : INPUTS: 
MA 460; 
AA 461: R2 = ADDRESS OF CHARACTER 
AA re {| 5 
AA 463 : OUTPUT: 
AA 464; 
AA 465: RO = IVSYMB IS NOT ACCEPTABLE 
AA 466 : RO = NORMAL IS ACCEPTABLE CHARACTER 
AA 467 :- 
AA 468 SPECIAL: 
SF 24 O2AA 469 -ASCII "S$" 
DF O2AC 470 "BYTE “XOF ; BETA 
O2AD 471 ENDSPEC: 
O2AD 478 
O2AD 473 DCLSCHKALPHA:: ; CHAECK VALID ALPHA 
51 DD O2ZAD 47% PUSHL R1 + SAVE R1 
03 62 3A O2AF 475 LOCC (R2),#ENDSPEC-SPECIAL.- : CHECK FOR SPECIAL CHARS 
F6 AF 0 B2 476 SPECIAL : 
18 12 0 Bs 427 BNEQ 108 : BRANCH IF FOUND 
41 8F 62 91 0286 479 CMPB s (R2) , #*A/A/ ; CHECK LOW LIMIT OF LOW RANGE 
1D «OTF O2BA 480 BLSSU 30S : BR IF FAILED 
SA BF 62 91 O2BC 481 CMPB ss (R2) , #*A/Z/ : CHECK HIGH LIMIT OF LOW RANGE 
oC 1B 0 co 48¢ BLEQU 10$ : BR IF VALID CHARACTER 
CO 8F 62 91 O2c2 48 CMPB ss (R2) , #*XCO : CHECK LOW LIMIT OF HIGH RANGE 
11 1F 02C6 484 BLSSU 308 : BR IF FAILED 
DE 8F 62 91 O02C8 485 CMPB ss (R2) , #*XDE : CHECK HIGH LIMIT OF HIGH RANGE 
OB 1A o2cc 486 BGTRU 30S : BR IF FAILED 
0 cE 488 10$: | STATUS NORMAL ; SET SUCESSFUL STATUS 
51 BEDO 0205 489 20$:  POPL Ri > RES 
05 0 D8 490 RSB : RETURN WITH STATUS 
6 D9 49¢ 30$: STATUS 1VSYMB :SET INVALID SYMBOL CHARACTER 
F311 «O2EO0 49 BRB 0$ : 
0 Eg 494 
—2 495 SEND 
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PSECT No. Attributes 


-») 00 ¢ QO.) NOPIC USR 
-» 01 ¢ 1.) NOPIC USR 
-» 02 ¢ 2.) NOPIC USR 
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! Performance indicators ! 


Geeeeeeceeeeeeeeceeaeesses + 


Phase Page faults CPU Time Elapsed Time | 


Initialization G :00: 8.03 : 04 
Command processing 8s :00:00.6 :00:07.14 | 
Pass 1 1 4 3-2 :00: at 
Symbol table sort :00:00.6 :00:02.5 
Pass 2 89 :00:01.4 :00: oe | 
Symbol table output 19 :00:00.14 :00:00.4 
Psect synopsis output 1 :00: +e :00:00.0 
Cross-reference output 8 0: 9 BR: : 3-8 
Assembler run totals 40 0: 9.34 0:00:40.91 

| 


The york ing set Limit was 1050 pages. 
30728 bytes_(61 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 439 non-local and 45 local symbols. 
495 source lines were read in Pass 1, producing 15 object records in Pass 2. 

31 pages of virtual memory were used to define 17 macros. 


+ + 
! Macro Library statistics ! 


$aean esos easeene esr eunceuws eases + 


Macro Library name Macros defined 


-$255$DUA28: CSYSLIBJSYSBLDOMLB.MLB; 1 0 
~$255$0UA28: COCL.OBJJDCL.MLB; 1 8 
~$255$DUA : SYS.OBJJLIB.MLB; 1 0 
$255S$DUA28: (CSYSLIBISTARLET.MLB;2 3 
TOTALS (all Libraries) 11 


549 GETS were required to define 11 macros. 


MACRO/LIS=LIS$:STATEMENT/OBJ=OBJ$: STATEMENT MSRC$: STATEMENT /UPDATE=(ENHS: STATEMENT) +EXECMLS/L IB+L 1B$:DCL/LIB+SYS$LIBRARY :SYSBLDMLB/L | 


There were no errors, warnings or information messages. 
| 
| 
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